home *** CD-ROM | disk | FTP | other *** search
/ Risc World 3 / Risc World 3.iso / SOFTWARE / ISSUE2 / FASTERPC / DRIVE_C / FPC_UTIL / MUSIC / ANTHEM.BAS next >
BASIC Source File  |  1979-12-31  |  831b  |  24 lines
  1. REM The National Anthem to show off !FasterPC's sound capabilities
  2. REM arranged in a fashion for a one note speaker by D.Lawrence
  3.  
  4. REM This program was compiled using Borland's Turbo Basic
  5. REM It also runs unchanged using Microsoft's QuickBasic supplied
  6. REM with DOS 5.0 Try modifying the 'T180' to other values to vary
  7. REM the speed of the arpeggios.
  8. REM Run this using Acorn's !PCem to hear some strange notes!
  9.  
  10. REM Display title
  11. PRINT "The British National Anthem"
  12.  
  13. REM Set tempo and choose hemidemisemiquavers as default
  14. PLAY "T180L16"
  15.  
  16. REM Play each bar of the first phrase
  17. PLAY "O3 G D <B G >G E <B E >A E C <C"
  18. PLAY "O3 F# D <A D A D >G <E >A D <A F#"
  19. PLAY "O3 B G D <G >B G E <E O4 C <A C <C"
  20. PLAY "O3 B G D <D B D >A <E- >G E <B E"
  21. PLAY "O3 A E C <C >G D <B D >F# D <A <D"
  22. PLAY "O3 G D <B G L4 <G"
  23.  
  24.